home *** CD-ROM | disk | FTP | other *** search
/ NAFCOM Cost Model 1999 / NAFCOM Cost Model 99.iso / nafcom99 / SETUP.RUL < prev    next >
Text File  |  2000-01-12  |  4KB  |  129 lines
  1. // Sample Script
  2.  
  3. // This is the InstallSHIELD installation script described above:
  4.  
  5. // Corrections to InstallSHIELD 2.0 Sample Script found in the User's Guide
  6. // on Pages 82-83
  7.  
  8. // InstallSHIELD Script file for My Program
  9.  
  10. // Copyright 1993 Stirling Technologies, Inc.
  11. declare
  12.         #define         SPACE_NEEDED            3000000
  13.         string szText [ 255 ], szTemp [255];
  14.         number nSpace, nTemp;
  15.         string szDisk [ 3 ], szDefPath [255 ];
  16.         string szBitmapPath [ 255 ];
  17.         string szBitmapPath2 [ 255 ];
  18.         string szBitmapPath3 [ 255 ];
  19.         string szBitmapPath4 [ 255 ];
  20.         string szResultPath [ 255 ];
  21.         string szProgramPath [ 255 ];
  22.         string szHelpPath [ 255 ];
  23.         string szWorkingPath [ 255 ];
  24.         string szReadme [ 255 ];
  25.         string szNotePad [ 255 ];
  26. program
  27. anyword:
  28.         SetColor( STATUSBAR, RED );
  29.         SetColor( BACKGROUND, BK_BLUE );
  30.  
  31.         SetFont( FONT_TITLE, STYLE_BOLD, "Times New Roman" );
  32.         Enable( BITMAPFADE );
  33.         Enable( EXIT );
  34.         Disable ( HELP );
  35.         //Enable ( PAUSE );
  36.         //Enable ( INFO );
  37.         Enable ( FEEDBACK_FULL );
  38.         Enable ( STATUS );
  39.         Enable ( INDVFILESTATUS );
  40.         Enable ( BACKGROUND );
  41.         // TARGETDIR  = "c:\\WINDOWS" ;
  42.         GetDisk( TARGETDIR, szDisk );
  43.         // szDisk = "c:"
  44.         szDefPath = szDisk ^ "NAFCOM99";
  45.  
  46.         szBitmapPath = SRCDIR;
  47.         szBitmapPath = szBitmapPath ^ "NAFCOM.BMP" ;
  48.         PlaceBitmap( szBitmapPath, 103, CENTERED, 10, UPPER_LEFT );
  49.  
  50.  
  51.         //    SetInfoWindow( "Information", "file1.lis" );
  52.  
  53.  
  54. //        SetStatusWindow( 10, "Installing NAFCOM 99" );
  55. TargetLocation:
  56.         AskPath( "Where do you want to install NAFCOM 99?",
  57.                 szDefPath, szResultPath);
  58.         if LAST_RESULT = FALSE then call
  59.                  ConfirmCancel;
  60.         endif;
  61.         if szResultPath = SRCDIR then
  62.           MessageBox ( "You entered the source directory path...",
  63.                         SEVERE );
  64.  
  65.         goto TargetLocation;
  66.         endif;
  67.         CreateDir( szResultPath );
  68.         if LAST_RESULT = 0 then goto DirCreated; endif;
  69.           MessageBox( "Unable to create directory. Please enter a valid path",
  70.                                  SEVERE );
  71.         goto TargetLocation;
  72. DirCreated:
  73.         GetDiskSpace( szResultPath );
  74.         if LAST_RESULT < SPACE_NEEDED then
  75.                 MessageBox ( "Not enough space on the drive.Try another.", SEVERE );
  76.         goto TargetLocation;
  77.         endif;
  78.         SetStatusWindow( 0, "Ready to copy files." );
  79.  
  80.         TARGETDIR = szResultPath;
  81.  
  82.         szBitmapPath2 = SRCDIR;
  83.         szBitmapPath2 = szBitmapPath2 ^ "NASA.BMP" ;
  84.         PlaceBitmap( szBitmapPath2, 101, 10, 10, LOWER_RIGHT );
  85.  
  86.         szBitmapPath3 = SRCDIR;
  87.         szBitmapPath3 = szBitmapPath3 ^ "USAF.BMP" ;
  88.         PlaceBitmap( szBitmapPath3, 103, 10, 10, LOWER_LEFT );
  89.  
  90.         szBitmapPath4 = SRCDIR;
  91.         szBitmapPath4 = szBitmapPath4 ^ "SAIC.BMP" ;
  92.         PlaceBitmap( szBitmapPath4, 102, CENTERED, 50,  UPPER_RIGHT );
  93.  
  94.         SetStatusWindow( 0, "Copying NAFCOM99 Files...." );
  95.         StatusUpdate( 1, 97);
  96.         CompressGet( "NAFCOM.Z", "*.*", COMP_NORMAL );
  97.  
  98.         SetStatusWindow( 99, "Finished copying files." );
  99.  
  100.         StatusUpdate(OFF, 0);
  101.  
  102.         StatusUpdate( 1, 100 );
  103.  
  104.         szProgramPath = TARGETDIR ^ "NAFCOM99.EXE";
  105.         szWorkingPath = TARGETDIR ;
  106.         AddProgItemEx( "NAFCOM 99",
  107.                        "NASA/Air Force Cost Model 99",
  108.                        szProgramPath,
  109.                        szWorkingPath,
  110.                        "",
  111.                        0,
  112.                        "",
  113.                        RUN_MINIMIZED | REPLACE );
  114.  
  115.        SetStatusWindow(100, "Finished Creating Program Group.");
  116.  
  117.         MessageBox("Installation is complete.",  INFORMATION );
  118.         exit;
  119.  
  120. ConfirmCancel:
  121. AskYesNo ( "Are you sure want to cancel this installation", NO );
  122. if LAST_RESULT = NO then return; endif;
  123.  
  124. exit;
  125.  
  126.  
  127.  
  128. 
  129.